home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / 1520.BIN / 1520 ENTERPRISE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.3 KB  |  151 lines
  1. 1 REM  THIS PROGRAM DRAWS THE ENTERPRISE       ON THE 1520 PLOTTER
  2. 2 REM  WRITTEN AND PUT INTO THE PUBLIC         DOMAIN BY P.CLOWER IN 1989
  3. 3 REM
  4. 4 PRINT"[147]  THIS PROGRAM WILL DRAW THE STAR TREK
  5. 5 [153]"  SHIP ENTERPRISE ON THE 1520 PLOTTER.
  6. 6 PRINT"  FIRST SET UP THE PLOTTER WITH ABOUT
  7. 7 [153]"  7 INCHES OF CLEAR PAPER PAST THE PEN
  8. 8 PRINT"  CARRIAGE, THEN PRESS ANY KEY...
  9. 9 [161]A$:[139]A$[178]"" [167] 9
  10. 10 [159]2,6,2:[152]2,0:[160]2:[143] COLOR
  11. 20 [159]1,6,1
  12. 30 A$[178]"D"
  13. 35 [135] X
  14. 40 [139]X[178]1000 [167]A$[178]"M":[137]35:[143] MOVE
  15. 50 [139]X[178]2000 [167][141]300:[137]30:[143] PEN
  16. 60 [139]X[178]3000 [167] [137]400:[143]  END PROG
  17. 70 [135]Y
  18. 80 [152]1,A$,X,Y:[143]   MOVE OR DRAW
  19. 90 [137]30
  20. 300 [159]2,6,2:[135]C:[152]2,C:[160]2:[142]
  21. 400 [129] I[178]1[164]4:[135]X(I),Y(I):[130]
  22. 405 [135]X:[139]X[178]3500[167]400:[143] NEXT SHAPE
  23. 407 [139] X[178]3000[167]700
  24. 410 [135] Y:[152]1,"M",X,Y:[152]1,"I",X,Y
  25. 415 [129]I[178]1[164]5:[152]1,"J",X(I),Y(I):[130]
  26. 420 [137]405
  27. 700 [159]2,6,2:[152]2,0:[160]2
  28. 705 [159]4,6:[159]3,6,3:[152]3,1:[160]3
  29. 710 [159]44,6,4:[152]44,1:[160]44
  30. 715 A$[178]"FEDERATION STARSHIP":SP[178]12:X[178]200:Y[178][171]550
  31. 720 [129]N[178]1[164][195](A$):[129]Z[178]1[164]2
  32. 725 [152]1,"M",X[170]Z,Y[171]N[172]SP[171]Z
  33. 730 [152]4,[202](A$,N,1);:[130]:[130]
  34. 735 [159]3,6,3:[152]3,2:[160]3:[143] SIZE
  35. 740 A$[178]"ENTERPRISE":X[178]150:Y[178][171]540
  36. 750 [129]N[178]1[164][195](A$):[129]Z[178]1[164]5
  37. 755 [152]1,"M",X[170]Z,Y[171]Z[171]2[172]N[172]SP
  38. 760 [152]4,[202](A$,N,1);
  39. 770 [130]:[130]
  40. 795 [159]2,6,2:[152]2,3:[160]2
  41. 800 [159]3,6,3:[152]3,0:[160]3:[143] SIZE
  42. 805 A$[178]"IMAGE PODUCED WITH":X[178]125:Y[178][171]600
  43. 810 [129]N[178]1 [164] [195](A$):[152]1,"M",X,Y[171]N[172]6:[152]4,[202](A$,N,1);:[130]
  44. 815 A$[178]"COMMODORE 64 AND":X[178]115:Y[178][171]606
  45. 820 [129]N[178]1 [164] [195](A$):[152]1,"M",X,Y[171]N[172]6:[152]4,[202](A$,N,1);:[130]
  46. 825 A$[178]"1520 PRINTER/PLOTTER":X[178]105:Y[178][171]594
  47. 830 [129]N[178]1 [164] [195](A$):[152]1,"M",X,Y[171]N[172]6:[152]4,[202](A$,N,1);:[130]
  48. 900 [152]1,"M",0,[171]998:[160]1
  49. 910 [159]7,6,7:[152]7,:[160]7:[128]
  50. 1000 [131]1000,280,705,280,25,290,20,292,-5,312,-5
  51. 1005 [131]312,720,280,705,280,695,312,710,280,695,280,660,312,675,280,660,280,605
  52. 1010 [131]312,618,280,605,280,537,312,542,280,537,280,452,312,457,280,452,280,365
  53. 1015 [131]312,365,280,365,280,280,312,272,280,280,280,195,312,188,280,195,280,128
  54. 1020 [131]312,116,280,128,280,70,312,60,280,70,280,38,312,20,312,-5,323,10
  55. 1025 [131]323,560,312,618,317,592,317,145,312,116,317,145,323,170,330,212,330,517
  56. 1030 [131]323,560,330,517,335,450,335,240,350,250,360,263,368,290,371,314,372,410
  57. 1033 [131]363,430,350,445,335,450,340,365,335,240,330,212
  58. 1035 [131]1000,371,314,379,314,383,316,385,320,385,403,383,408,378,410,372,410
  59. 1036 [131]1000,385,390,391,377,393,365,391,353,385,340
  60. 1037 [143]    END OF DISK TOP
  61. 1038 [131]1000,280,180,269,212,269,520
  62. 1040 [131]280,550,269,520,250,475,250,258,269,212,250,258,230,300,227,322,227,410
  63. 1045 [131]230,430,250,475,230,430,227,410,220,410,218,405,218,327,220,322,227,322
  64. 1047 [143]  END BOTTOM DISK, START SENSOR BUMP
  65. 1048 [131]1000,312,716,314,716,315,715,315,704,314,703,312,703:[143] SENSOR BUMP
  66. 1049 [143] DO DISH STRUT, THEN START DISK CONTOUR LINES
  67. 1050 [131]1000,218,340,211,355,209,365,211,375,218,390,1000,275,195,181,65,180,35
  68. 1052 [131]280,150,1000,280,65,180,-40,1000,177,-104,290,20,1000,243,149,263,135
  69. 1055 [131]263,-9,1000,202,92,220,79,220,-58
  70. 1057 [131]1000,312,535,323,500,330,468,338,410,1000,312,195,323,230,330,262
  71. 1059 [131]338,320,1000,312,427,323,413,335,393,339,380,1000,339,350,335,337
  72. 1060 [131]323,317,312,303
  73. 1061 [131]1000,280,238,269,263,250,288,238,309,227,335,1000,280,492,269,467
  74. 1063 [131]250,442,238,421,227,395,1000,280,300,269,318,250,335,227,352,227,378
  75. 1066 [131]250,395,269,412,280,430:[143]          END OF CONTOUR LINES ON DISK
  76. 1069 [143] START DISH
  77. 1070 [131]1000,145,170,98,170,99,195,98,195,98,200,102,200,102,195,101,195
  78. 1073 [131]102,170,55,170,70,163,90,157,100,156,110,157,130,163,145,170
  79. 1075 [143] DISH POST
  80. 1077 [131]1000,1070,156,107,143,1000,93,156,93,143
  81. 1080 [131]1000,150,134,150,143,50,143,50,134,160,134,165,100,118,100,118,26
  82. 1085 [131]118,120,82,120,82,26,82,100,35,100,40,134,160,134,165,100,173,100
  83. 1090 [131]173,87,118,87,1000,82,87,27,87,27,100,82,100
  84. 1094 [143]  START HULL
  85. 1095 [131]1000,173,87,177,85,180,78,180,65,180,35,180,-40,177,-104,170,-230
  86. 1098 [143]   START AFT BODY
  87. 1099 [131]1000,165,-286,160,-390,160,-408,163,-407,164,-405,164,-393,163,-391
  88. 1100 [131]160,-390,160,-408,159,-417,148,-416,137,-412,120,-409,106,-407,93,-407
  89. 1102 [131]96,-436,106,-436,106,-426,106,-431,120,-429,132,-423,142,-414,137,-412,126,-420
  90. 1104 [131]117,-424,106,-426,106,-413,113,-412,120,-409,106,-407
  91. 1105 [131]106,-413,106,-407,93,-407,89,-380,79,-350,69,-330,50,-300,51,-260
  92. 1110 [131]50,-230,45,-190,34,-150,20,-110,12,-80,7,-40,5,-10,5,10
  93. 1115 [131]10,50,22,120,38,120: [143] BODY     DONE
  94. 1120 [131]1000,328,-230,150,-230,147,-233,145,-283,148,-286,330,-286
  95. 1122 [143]  STRUT DONE, START POD
  96. 1125 [131]1000,325,-150,342,-838,414,-838,413,-890,398,-888,390,-883,385,-870
  97. 1130 [131]378,-860,360,-850,348,-849,349,-862,355,-872,367,-878,388,-878
  98. 1132 [131]1000,348,-849,344,-849,342,-847,342,-838,342,-827,414,-827,414,-838
  99. 1135 [131]414,-815,403,-815,400,-812,400,-796,403,-793,413,-793,415,-790
  100. 1140 [131]417,-666,414,-663,404,-663,401,-660,401,-650,404,-647,425,-647
  101. 1145 [131]428,-649,430,-652,426,-810,424,-812,421,-814,414,-815
  102. 1150 [131]1000,417,-647,420,-120,418,-118,350,-118,350,-115,418,-115,418,-112
  103. 1155 [131]350,-112,350,-109,418,-109,418,-118,418,-109,420,-107,420,-85,417,-80
  104. 1160 [131]413,-62,406,-51,397,-43,384,-37,372,-36,361,-37,349,-42,338,-52
  105. 1165 [131]331,-64,328,-80,417,-80,328,-80,325,-85,325,-150,330,-162,350,-162
  106. 1170 [131]350,-96,330,-96,325,-100,330,-96,350,-96,345,-100,345,-150,350,-162
  107. 1175 [131]345,-150,325,-150,325,-162,320,-150,318,-100,320,-98,322,-96,325,-95
  108. 1180 [143] POD FINISHED
  109. 1200 [131]2000,2,1000,362,-210,362,-215,375,-213,389,-217,389,-213
  110. 1205 [131]375,-203,362,-210,1000,382,-190,382,-207,1000,382,-215
  111. 1207 [131]382,-410,370,-410,366,-250,382,-240,1000,382,-572
  112. 1210 [131]382,-690,375,-690,373,-572,382,-572,1000,393,-751,393,-813
  113. 1215 [131]363,-813,363,-751,393,-751
  114. 1217 [143] START LETTERS
  115. 1220 [131]1000,366,-417,386,-417,386,-420,368,-435,385,-435,385,-433,386,-433
  116. 1225 [131]386,-437,366,-437,366,-433,382,-420,366,-420,366,-417:[143] FINISH N
  117. 1230 [131]1000,366,-443,367,-442,385,-442,386,-443,386,-461,385,-462
  118. 1235 [131]381,-462,381,-459,383,-459,383,-444,369,-444,369,-459,371,-459
  119. 1240 [131]371,-462,367,-462,366,-461,366,-443:[143]  FINISH 1ST C
  120. 1245 [131]1000,366,-468,367,-467,385,-467,386,-468,386,-486,385,-487
  121. 1250 [131]381,-487,381,-484,383,-484,383,-469,369,-469,369,-484,371,-484
  122. 1255 [131]371,-487,367,-487,366,-486,366,-468:[143]  FINISH 2ND C
  123. 1260 [131]1000,375,-490,378,-490,378,-500,375,-500,375,-490
  124. 1265 [131]1000,366,-503,386,-503,386,-506,366,-506,366,-503:[143] FINISH 1
  125. 1270 [131]1000,366,-513,383,-525,384,-525,384,-509,386,-509,386,-528
  126. 1275 [131]382,-528,366,-517,366,-513:[143]    FINISH 7
  127. 1280 [131]1000,366,-532,367,-531,385,-531,386,-532,386,-550,385,-551,367,-551
  128. 1285 [131]366,-550,366,-532,1000,369,-534,383,-534,383,-548,369,-548,369,-534
  129. 1290 [131]1000,366,-560,386,-560,386,-563,366,-563,366,-560:[143] FINISH LAST 1
  130. 1300 [131]1000,109,61,109,77,91,70,91,62,1000,87,60,100,67,114,57,114,53,100,57
  131. 1305 [131]87,55,87,60,1000,91,55,91,20,109,27,109,54:[143]  FINISH FRONT OF DESIGN
  132. 1310 [131]1000,109,23,109,-60,108,-61,106,-61,105,-60,105,7,104,8,103,8,102,7
  133. 1315 [131]102,-135,101,-136,99,-136,99,-136,98,-135,98,3,97,4,96,4,95,3,95,-60
  134. 1320 [131]94,-61,92,-61,91,-60,91,16,109,23:[143]  DESIGN FINISHED
  135. 1348 [131]2000,1: [143] COLOR CHANGE
  136. 1350 [131]3000,0,0,4,0,4,-7,0,-7:[143]        WINDOW SHAPE, NEXT WINDOW LOCATIONS
  137. 1355 [131]87,-75,87,-85,87,-160,87,-170,87,-200,87,-217,106,-87,106,-97
  138. 1360 [131]119,-30,119,-48,119,-60,119,-72,132,-333,132,-345,184,-242,290,-242
  139. 1365 [131]307,-242,196,40,196,27,210,53,210,40,210,-30,210,-42,226,86,226,76
  140. 1370 [131]226,53,226,40,240,40,240,53,240,63,255,118,255,108,255,40
  141. 1375 [131]361,400,361,387,361,374,361,361
  142. 1380 [131]3500,0,0,2,0,2,-5,0,-5
  143. 1385 [131]243,387,243,377,243,367,243,357,243,347,260,380,260,355,25,60,25,50
  144. 1390 [131]3500,0,0,4,2,4,-2,0,-4
  145. 1395 [131]300,659,300,650,300,641,300,632
  146. 1400 [131]3500,0,0,4,0,4,-4,0,-4
  147. 1405 [131]55,75,65,75,55,-60,55,-70,87,-230,87,-238,80,-50,120,-140,90,-350
  148. 1410 [131] 350,410,350,340,355,365
  149. 10000 [131] 3000
  150. 6682 
  151.